home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 42 / Mac Magazin and MacEasy Magazine CD - Issue 42.iso / Software / Utilities / Updates & Treiber / Updates / PrintChef Revision 1.0 / PrintChef Resources / PrintChef Resources.rsrc / DICT_-4032 < prev    next >
Encoding:
Text File  |  1998-01-30  |  9.5 KB  |  165 lines
  1.  
  2. userdict begin 
  3. /ATF*LM 1 def/ATC+LM 0 def
  4. /setcolortransfer where{pop/RTF*LM 1 def/RTC+LM 0 def/GTF*LM 1 def
  5. /GTC+LM 0 def/BTF*LM 1 def/BTC+LM 0 def}if/LMdict 90 dict def
  6. end
  7. LMdict begin
  8. /sysinitmatrix systemdict/initmatrix get def
  9. /sysinitclip systemdict/initclip get def
  10. /V 16#200 def/FormDict 30 dict def
  11. /Level2 systemdict/languagelevel known{languagelevel 2 ge}{false}ifelse def 
  12. /PG[0 0 0 0]def/PH 0 def/PW 0 def/CF(\0\0\0\0\0\0\0\0\0)def
  13. /GF?{CF exch get 0 ne}bind def/PF{CF exch 3 -1 roll put}bind def
  14. /setoverprint Level2{/setoverprint}{/pop}ifelse load def
  15. /setstrokeadjust Level2{/setstrokeadjust}{/pop}ifelse load def
  16. /execform dup where{1 index get}{[/PaintProc/get load/exec load]cvx}ifelse def
  17. /COPY{exch 0 exch putinterval}bind def
  18. /M matrix identmatrix def/IM matrix identmatrix def/MT()def/VT()def
  19. /LT(1 0 0 1 0 0 )def/FLX{[-1 0 0 1 PH 0]}bind def/FLY{[1 0 0 -1 0 PW]}bind def
  20. /FX{[-1 0 0 1 PW 0]}bind def/FY{[1 0 0 -1 0 PH]}bind def/LS{[0 -1 1 0 0 PW]}bind def
  21. /CW? false def
  22. /UT{[exch 6{token pop exch}repeat pop]}bind def
  23. /UTM{matrix currentmatrix matrix defaultmatrix matrix invertmatrix
  24. matrix concatmatrix IM matrix concatmatrix}bind def
  25. /BM{LT UT 4 GF?{VT UT matrix concatmatrix}if 3 GF?{MT UT matrix concatmatrix}if
  26. M copy IM invertmatrix pop}bind def
  27. /SM{BM M sysinitmatrix concat concat}bind def
  28. /M-{UTM matrix defaultmatrix matrix concatmatrix}bind def
  29. /M+{matrix defaultmatrix matrix invertmatrix matrix concatmatrix BM M
  30. sysinitmatrix concat concat}bind def
  31. /MX{dup type/arraytype ne{UTM matrix defaultmatrix matrix concatmatrix}if}bind def
  32. /VCT()def/LCT()def
  33. /NC{dup 3 ge{{currentpoint}stopped{0 0}if 4 2 roll 1 sub exch newpath
  34. token pop exch token pop 3 -1 roll exch 8 GF?{LS transform}if moveto exch
  35. {token pop exch token pop 3 -1 roll 8 GF?{neg}{exch}ifelse rlineto}repeat
  36. pop closepath clip newpath moveto}{pop pop}ifelse}bind def
  37. /FB{newpath dup 4 index exch moveto 1 index exch lineto 1 index lineto lineto
  38. closepath}bind def
  39. /BC{{currentpoint}stopped{0 0}if matrix currentmatrix sysinitclip sysinitmatrix
  40. PH 0 ne{PG aload pop 2 GF?{exch 4 -2 roll exch 4 -2 roll}if FB clip newpath}if
  41. 3 GF?{MT UT concat PG aload pop FB clip newpath}if 4 GF?{VT UT concat CF 5 get 3 ge
  42. {VCT CF 5 get NC}if}if LT UT concat CF 6 get 3 ge{LCT CF 6 get NC}if setmatrix
  43. moveto}bind def
  44. /TW? false def/T? 0 def/L 0 def/TT(0 65535 0 )def/TFS[1 0 1 0 1 0 1 0]def
  45. /NTC/setcolortransfer where{pop{/ATC+LM/ATF*LM/BTC+LM/BTF*LM/GTC+LM/GTF*LM
  46. /RTC+LM/RTF*LM TFS{userdict 3 1 roll put}forall}}{{userdict/ATF*LM TFS 6 get put
  47. userdict/ATC+LM TFS 7 get put}}ifelse bind def
  48. /NT{/TFS[TT token pop 0 eq{token pop 65535 div exch token pop 65535 div exch
  49. pop 2 copy 2 copy 2 copy}{6{token pop 65535 div exch}repeat pop 2{5 index 0.3 mul 
  50. 4 index 0.59 mul add 2 index 0.11 mul add}repeat}ifelse]def
  51. NTC/T? T? 1 add def}bind def
  52. /LMT/setcolortransfer where{pop[{RTF*LM mul RTC+LM add}bind
  53. {GTF*LM mul GTC+LM add}bind{BTF*LM mul BTC+LM add}bind{ATF*LM mul ATC+LM add}bind]}
  54. {[{ATF*LM mul ATC+LM add}bind]}ifelse def
  55. /ET{/L exch def true exch{1 index{dup LMT L get eq{pop pop false}{exch}ifelse}
  56. {pop pop true}ifelse}forall pop}bind def
  57. /IT/setcolortransfer where{pop{NT currentcolortransfer 3 -1 0{[3 1 roll ET
  58. LMT L get/exec load]cvx bind 4 1 roll}for setcolortransfer}}
  59. {{NT[currenttransfer 0 ET LMT 0 get/exec load]cvx bind settransfer}}ifelse bind def
  60. /DT/setcolortransfer where{pop{currentcolortransfer setcolortransfer}}
  61. {{currenttransfer settransfer}}ifelse bind def
  62. /SP{UTM 1 GF?{0 1 PF 0 1 0 3 index dtransform 2 GF?{exch pop 0 gt{1 or}if
  63. 0 1 3 index dtransform}{pop 0 lt{1 or}if 0 1 3 index dtransform exch}ifelse 
  64. pop 0 gt{2 or}if 0 PF}if}bind def
  65. /LW{[{matrix identmatrix}{2 GF?{FLY}{FX}ifelse}{2 GF?{FLX}{FY}ifelse}
  66. {2 GF?{FLX FLY}{FX FY}ifelse matrix concatmatrix}]CF 0 get get exec 2 GF?
  67. {LS matrix invertmatrix}{matrix identmatrix}ifelse matrix concatmatrix}bind def
  68. /RW{[{matrix identmatrix}{CF 3 get 1 le{FX}{FY}ifelse}{CF 3 get 1 le{FY}{FX}ifelse}
  69. {FX FY matrix concatmatrix}]CF 0 get get exec 2 GF?{LS}{matrix identmatrix}ifelse
  70. matrix concatmatrix}bind def
  71. /WS 32 string def
  72. /CW{2 index UT exch matrix concatmatrix matrix concatmatrix 0 exch{WS cvs
  73. 3 copy putinterval length add 2 copy 32 put 1 add}forall pop pop}bind def
  74. /SMW{LMdict begin SP exch MT COPY 2 GF? 0 GF? or{MT matrix identmatrix RW CW}if
  75. SM end}bind def
  76. /SVW{LMdict begin SP exch VT COPY 3 GF? not{2 GF? 0 GF? or{VT matrix identmatrix 
  77. RW CW}if}if SM dup 5 PF 0 gt{VCT COPY}if 1 4 PF end}bind def
  78. /SLW{8 PF SP 3 1 roll dup 2 lt{0 4 PF 5 GF?{/CW? true def}if}{2 sub}ifelse exch LT
  79. COPY 2 GF? 0 GF? or{LT 1 index 0 eq{LW}{matrix identmatrix}ifelse 3 GF? 4 GF?
  80. or{matrix identmatrix}{RW}ifelse CW}if pop SM dup type/stringtype eq{TT COPY NT
  81. DT/TW? true def}if dup 3 ge dup 6 GF? or 3 GF? or 4 GF? or{/CW? true def}if exch
  82. 6 PF{LCT COPY}if}bind def
  83. /FMW{LMdict begin 0 SLW gsave sysinitmatrix sysinitclip 0.25 setlinewidth MT UT
  84. concat PG aload pop FB stroke grestore end}bind def
  85. /ATP{LMdict begin CF 2 get SLW end}bind def
  86. /CU{cleartomark countdictstack exch sub dup 0 gt{{end}repeat}{pop}ifelse}bind def
  87. /EPS+{LMdict begin 0 SLW end LMdict/EPS save put userdict/showpage{}put
  88. 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit[]0 setdash
  89. newpath LMdict begin false setoverprint false setstrokeadjust BM sysinitmatrix
  90. M concat BC end countdictstack[}bind def
  91. /EPS-{LMdict/CU get exec LMdict/EPS get restore}bind def
  92. /GM[{0}{0 0 moveto rlineto 0}bind
  93. {0 0 moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto closepath 2}bind
  94. {3 copy 2 mul exch div dup 1 lt{pop 1}if 2 index 2 mul 3 -1 roll div 
  95. dup 1 lt{pop 1}if exch matrix scale exch 4 2 roll 3 index dtransform
  96. 3 index matrix invertmatrix concat/H exch def/W exch def/R exch def 0 R moveto
  97. 0 H R H R arcto W H W H R sub R arcto W 0 W R sub 0 R arcto 0 0 0 R R arcto
  98. 16{pop}repeat concat 0}bind
  99. {1 index div 1 exch matrix scale dup concat exch 2 div/R exch def R 0 moveto
  100. R R R -90 270 arc matrix invertmatrix concat 0}bind
  101. {translate 1 index div 1 exch matrix scale dup concat exch 2 div/R exch def
  102. 3 1 roll dup abs 360 lt lw 0 gt and{0 0 moveto 2 copy 1 index add 0 0 R lw add 
  103. 5 -2 roll arc closepath clip newpath}if 1 index add lw 0 le{0 0}
  104. {1 index dup cos R mul exch sin R mul}ifelse moveto 0 0 R 5 -2 roll arc
  105. matrix invertmatrix concat 0}bind
  106. {3 1 roll moveto 1 sub{lineto}repeat 1 eq lw 0 gt and{closepath}if 2}bind
  107. ]def
  108. /DG{gsave 0 setlinejoin 10 setmiterlimit[]0 setdash LMdict begin
  109. false setoverprint false setstrokeadjust BM sysinitmatrix M concat BC/lw exch def
  110. dup 3 eq{1 index 0 eq{pop pop 2}if}if newpath GM exch get exec lw 0 ge
  111. {setlinecap lw setlinewidth stroke}{pop closepath eofill}ifelse end grestore}bind def
  112. /GC{translate scale newpath LMdict begin GM exch get exec end pop closepath clip
  113. scale translate}bind def
  114. /SGW{LMdict begin 0 SLW end}bind def
  115. /INIT{LMdict begin/CF 9 string def(\0\0\0\0\0\0\0\0\0)CF COPY 7 PF 2 PF 3 PF
  116. /PG exch def/PH exch def/PW exch def 1 1 PF/MT 120 string def/VT 120 string def
  117. /LT 120 string def(1 0 0 1 0 0 )dup MT COPY dup VT COPY LT COPY/VCT 1280 string def 
  118. /LCT 2560 string def/TT 45 string def(0 65535 0 )TT COPY end}bind def
  119. /KF{LMdict begin 0 7 PF end}bind def
  120. /FNF{cleartomark/Courier findfont 9 scalefont setfont gsave sysinitclip
  121. newpath clippath pathbbox pop pop 4 add moveto(FORM )show show( NOT FOUND!)show
  122. grestore}bind def
  123. /OF{dup(XXXXFORM.PC)exch 1 index copy pop mark exch(r){file}stopped}bind def
  124. /LNG{LMdict begin OF{FNF end}{3 1 roll pop pop end mark
  125. {1 index cvx exec}stopped cleartomark closefile LMdict/CU get exec}ifelse}bind def
  126. /FF{LMdict/Level2 get{0()/SubFileDecode filter}if cvx exec LMdict/CU get exec}bind def
  127. /LF{/countdictstack load/mark load 4 2 roll load/exec load]cvx 5 dict dup begin
  128. /FormType 1 def/BBox newpath clippath pathbbox 4 array astore def
  129. /Matrix matrix identmatrix def/PaintProc 3 -1 roll def end[exch/execform load]cvx
  130. FormDict begin exch cvn exch def end}bind def
  131. /MDF{LMdict begin dup/LNG[3 1 roll/pop load 3 1 roll LF end}bind def
  132. /MMF{string mark currentfile 3 -1 roll{readstring pop}stopped{cleartomark()}
  133. {exch pop}ifelse[exch/pop load exch LMdict begin/FF LF end}bind def
  134.  
  135. /REPS{(r){file}stopped not{mark{1 index cvx exec}stopped cleartomark closefile}if}bind def
  136. end
  137. userdict begin
  138. /clippath{clippath LMdict begin 1 GF?{gsave sysinitmatrix 0 0 transform
  139. PW PH ge{PW}{PH}ifelse dup dtransform grestore idtransform 4 -2 roll itransform
  140. newpath moveto exch dup 0 rlineto 0 3 -1 roll rlineto neg 0 rlineto closepath}if
  141. end}bind def
  142. /gsave{LMdict begin M- dup setmatrix gsave M+/CW? false def/TW? false def end}bind def
  143. /grestore{LMdict begin grestore matrix currentmatrix M+ TW?{DT}if CW?{BC}if end}bind def
  144. /grestoreall{LMdict begin grestoreall matrix currentmatrix M+ TW?{DT}if CW?{BC}if end}bind def
  145. /save{LMdict begin 1 GF?{IT}if M- setmatrix end save LMdict begin
  146. matrix currentmatrix M+ end}bind def
  147. /restore{LMdict/T? get exch restore LMdict begin T? ne{NT DT}if
  148. matrix currentmatrix M+ end}bind def
  149. /showpage{LMdict begin CF 7 get dup 1 gt{dup 1 sub 7 PF}if 1 ne end
  150. {systemdict/showpage}{copypage systemdict/initgraphics}ifelse get exec 
  151. LMdict begin matrix currentmatrix M+ end}bind def
  152. /initclip{LMdict begin BC end}bind def
  153. /initmatrix{LMdict begin sysinitmatrix M concat end}bind def
  154. /initgraphics{systemdict/initgraphics get exec LMdict begin M concat end}bind def
  155. /defaultmatrix{LMdict begin M matrix defaultmatrix 3 -1 roll concatmatrix end}bind def
  156. /currentmatrix{LMdict begin M- 1 index COPY end}bind def
  157. /setmatrix{LMdict begin M+ end}bind def
  158. /transform{LMdict begin MX transform end}bind def
  159. /dtransform{LMdict begin MX dtransform end}bind def
  160. /itransform{LMdict begin MX itransform end}bind def
  161. /idtransform{LMdict begin MX idtransform end}bind def
  162. end
  163. %#%
  164. currentfile flushfile
  165.